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SOURCE STATEMENT 
STITLEC“MIP-ISTS RQPROC FOR 550 - 03/04/82") 


71SIStraproc: 
do, 


Ne 


THIS MGDULE CONTAINS THE ROUTINES THAT MANAGE THE 
REQUEST QUEUES. THESE ROUTINES FOLLOW THE DEFINITIONS 
OF THE FUNCTIONS AS DEFIND IN THE MIP ARCHITECTURE 
SPECIFICATION. THERE ARE SEVEN ROUTINES HERE. FOUR 
DIRECTLY MANAGE THE REQUEST QUEUES. THE OTHER THREE 
IMPLEMENT TIMECUT FUNCTIONS USED TO DETERMINE IF THE 
DESTINATION DEVICE DOES NOT RESPOND. 


THE ROUTINES ARE: 


RQGPTR: REGUEST-GET-~POINTER. 
THIS ROUTINE RETURNS A POINTER TO THE NEXT FREE GIVE SLOT 
IN THE OUTPUT REQUEST QUEUE. | 


RQTPTR: REQUEST-~TAKE-PCINTER. 
THIS ROUTINE RETURNS A POINTER TO THE NEXT FILLED TAKE SLOT 
IN THE INPUT REQUEST QUEUE, IF THERE IS SOMETHING THERE, 


RLGPTR: RELEASE~GIVE-POINTER. | 
THIS ROUTINE RELEASES THE FILLED GIVE SLOT. 


RLTPTR: RELEASE-TAKE-PCINTER. 
THIS ROUTINE RELEASES THE EMPTIED TAKE SLOT. 


TROGPT: TIMED REQUEST-GIVE-PTR. 
THIS ROUTINE CALLS RQGPTR LOOKING FOR A NON~FULL STATE. IT 


REQUEST QUEUE. ITF THE QCUELE DOES NOT: BECOME NON-FULL IN THE 
AND THE REQUEST ABORTEC. 


DNITES INDI IACIZe TIMER « 
THIS ROUTINE INITIALIZES THE TIMEOUT TIMER. 


BUMPT: BUMP TIME. | | 
THIS ROUTINE BUMPS THE TIME IN THE TIMEOUT TIMER. THE TIMER 
IS A SOFTWARE LOOP THAT COUNTS FROM 0 TO 65K. 


declare Requestiqueue$descriptor literally 
’ RESFLAG 3YTE- 
RQ@FLAG2 bytes 
RQsize byte, 
R@ESsize byte, 
GiveSindex byte, 
Give$state byte, 
TakeSindex byte, 
TakeSstate byte 7, 


we Ne Ne Ne Se Ne Ne Ne Ne Ne Ne Ne Nw Ne Be Ne Nc Ne Ne Ne Ne Ne Ne Ne Ne Ne ee Ne Ne Ne Ne Ne Ne Ne Ye Ne Ne Ne Ne Be Ne Ne Ne Ne Ne Ne Ne 


at RK be re bee St oe oe oe ee 


TMPLEMENTS A TIMECUT FEATURE WHEN WAITING UPON A FULL OUTPUT 


TIMEOUT PERIOD, THE DESTINATION DEVICE WILL 8E DECLARED DEAD ™ 
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LOC 


0061 
0004 
QOCE 
6010 
0020 
0040 
O0&G 


0001 
0004 
O0C& 
0010 
0020 
0040 
0080 


0070 
0080 
0081 
0083 
0085 
00&7 
0089 


0000 
00C3 
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SCURCE STATEMENT 


PUBLIC RQGPTR-RETPTR/-~RLGPTR-RLTPTR 
PUBLIC TRQGPT,/INITT,/SUMPT 

EXTRN OUTRGDZ-INRQD 

C3e6 


SINCLUDECSFI:MIP.EQU) 


yA 

, DEFINE RQD RESULTS 
7 

GERROR EQU 1H 
GBUSY EQU 4H 
FIRSTG ecQU 3H 
GDISAB ECU 10H 
GFULL EQU 20H 
BISABT EQU 40H 
PULLE =U €0H 
TERROR EQU 1H 
TBUSY EQU 4H 
FIRSTT EQU 8H 
TOISAB EQU 10H 
TEMPTY EQU 20H 
DISA8G ERU 40H 


EMPTYF EQU 80H 
; 


7 DEFINE MIP CMDS AND RESPONSES 


f 

CSENnec EGU — 70H 
SENTCK EQU 80H 
UNKNP EQU 81H 
ACTIVP EQU 83H 
INSUFM ECU got 
INACTP EQU 87H 


CEADP EQU. 89H 
; 
, DEFINE MIP*ISIS PARAMETERS 


C) 
a, 


MYITOS  EQU 0 
THIDEV EQU 3 
FEJECT 
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LOC 


GOCOQ 
00C3 
OOCé 
O0C? 
0008 
Q0C9 
0008 
OOCE 
QOCF 
0011 
* 0014 
0016 


0017 
0018 
0018 
OO01E 
0021 
0024 
0025 
0026 
0029 
0028 


O0cC 
O02F 
0030 
0032 
0033 
0034 
0035 
0026 
0037 
0039 
OO3A 
0038 


O38J 


010400 
21060C 
OA 

AE 

af 
E6é7F 
C22coc 
vA 
E680 
CA2COC 
F621 
C9 


mom 


momomm 


im 
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REPRCC 


SCURCE STATEMENT 


ROGPTR: 


REGISTERS. 
MIP 3ITS 


QGPTR: 


RQTPTR: 


RLIA: 
Riis 


141 SEJECT 


3, 0UTRODt+4 


H,OUTRQD+6- 


Q 


aa 


M 

Drv A 
(FH 
RLIA 
AD 
80H 
RLIA 
ei 


A 

INRQCO 

Be INRQOtE 
He INRQD+4; 
DrINRQOtE 
5 

M 

RL1 

ea is 


D,OUTRQDtS 


a 
on 


WITH THE 


THE OUTPUT OF THIS ROUTINE 


PAGE ) 


IS IN THE A AND -H/L 
THE A REGISTER CONTAINS THE STANDARD 


EXCEPTION OF THE BUSY BITS. 
IF A REG DOES NOT INDICATE AN ERROR, THEN HL 
CONTAINS THE PCINTER TO THE FREE RQ SLOT 


Ne Na Ne Ne Ne 


Ne Ne Ne NO 


GIVE 
TAKE 


Get TNGEA/ STATE 


SAVE EXCLUSIVE OR © 
GET INDEX PART 
JMP IF INDEXES ARE NOT EQUAL 


GI=TI, SEE 


IF EMPTY OR FULL 


if -GrFsTtF THEN @ IS EMPTY 


GF<> TFer Q 


SET GIVE FLAG 


TAKE 
GIVE 


Tl 


Q IS EMPTY 


JUMP IF GI= 


EMPTY 


INDEX 


16 * INDEX. 


IS. FULL 


TO ZERO 


IF GI=TI ANDO GF=TF 
TI AND GF=TF 
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LOC OBJ LINE 
142 
143 
144 
145 
146 
147 
148 
149 
150 
002c 010400 = 151 
OCO3F 21060C £E— 152 
0042 OA 153 
0043 3C 154 
0044 £681 155 
0046 57 156 
0047 £601 157 
0049 5F 158 
004A 7E 159 
0048 E67F 160 
0040 BB 161 
OO4E 7A 162 
O04F C2570G Cc 163 
0052 75 164 
0053 2F 165 
0054 £680 1&6 
0056 B3 167 
168 
0057 02 169 
0058 21000C = 170 
0058 3601 171 
0050 3£02 172 
OOSF D3A4 173 
0061 C9 174 
175 
176 
177 
178 
179 
180 
1814 
182 
183 
184 
185 
, 186 
0062 010600 = 187 
0065 210400 = 188 
0068 OA 189 
0069 3¢ 190 
OO6A £681 191 
006C 57 192 
O00é6D £601 193. 
OO6F SF 194 
0070 7é 495 
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7 RLGPTR: THIS RCUTINE HAS NO PARAMETERS. IT IS CALLED AFTER 
, RQGPTR HAS 3EEN CALLED AND THE GIVE SLOT FILLED IN 
; IN ORDER TC INDICATE TO THE DESTINATION DEVICE THAT 
, SOMETHING IS IN THE QUEUE. IT MUST BE CALLED ONLY 
; AFT=R RQGPTR HAS BEEN CALLED WITHOUT AN ERROR BEING. 
, RETURNED. THAT IS, RLGPTR MUST BE CALLED FOLLOWING 
; SUCCESSFUL RQGPTR CALLS. THIS ROUTINE WILL ALSO 
, GENERATE A&A SIGNAL INTERRUPT TO THE DESTINATION DEVICE 
RLGPTR: 

LXI B,OUTREDt4 , GIVE 

LXTI H,OUTRaDtTE > TAKE 

LOAX 3 ‘y GI 

INR A 

ANI 81H 7 FORM POSST8LE NEW GI/FF 

MOV Deva 

ANTI 1 , GET GI PART ONLY 

MOV E,A 

MOV Av M , qT! 

ANT TFo 

CMP c 

MOV A,D 7 PUT NEW GI/GF INTO A 

JNZ RL2 

MOV Ari 7 FORM NEW GF=NOT TF 

CMA 

ANT 89H 

CRA z > GI PART 
RL2: STAX B , STORE NEW GI/GF 

LXI H,OUTRQD 7 SET FLAG 

MVI M, 1H 

MVI Are 

CUT CA4H 

RET 
, 
7 RLTPTR: THIS RCUTINE HAS NC PARAMETERS. IJ IS CALLEO AFTER 
, RQTPTR HAS FEEN CALLED AND THE GIVE SLOT FILLED IN 
; IN ORDER TO INDICATE TO THE DESTINATION DEVICE THAT 
, SOMETHING HAS BEEN TAKEN FROM THE QUEUE. T MUST BE 
, CALLED ONLY AFTER ROTPTR HAS BEEN CALLED WITHOUT AN 
a, ERROR BEING RETURNED. THAT IS, RLTPTR MUST BE CALLED 
; FOLLOWING SUCCESSFUL R@GPTR CALLS.« THIS ROUTINE WILL 
; ALSO GENERATE AN INTERRUPT TO THE CESTINATION DEVICE. 
RLTPTR: 

LXI By, INRQOtTE , TAKE 

LXI He INRGOt4 , GIVE 

LOAX B ee 

INR A 

ANI 81H. > FORM PCSSIBLE NEW TI/TF 

MOV De, A ; 

ANTI 1 | 7 GET TI PART ONLY 

MOV Ev A 

MCV AyM , GI 
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Loc 08J LIN SOURCE STATEMENT 
0073 8B 197 CMP = 
0074 7A 158 MOV A,D ; POSSIBLE NEW TI/TF 
0075 c25700 c 199 JNZ RL2 
0078 7E 200 MOV Ay ; FORM NEW TF= GF 
0079 £680 201 ANI 80H 
0078 383 202 ORA E ; TI PART 
203 
OO7C 02 204 RL3: STAX B 7 STORE NEW TF/GF 
0070 210100 = 205 LXI H,OUTROD+1 ; SET FLAG 
O08C 3680 206 NVI M, 80H , 
0082 3£02 207 MVI Ay? 
0084 D3A4 208 OUT OAH 
0086 C9 : 209 RET 
210 
2113 7 | 
212 7 THESE ARE TIMERS ROUTINES THAT VARIOUS OTHER ROUTINES USE FOR TIMEOUT 
213 7 PUPOSES 
214 ; 
0087 21000C 215 INITT: LXI 4,0 
OO8A C3910C C 216 JMP LO 
21.7 
218 
219 7 THIS ROUTINE 8UMPS THE TIMER. THE STATE IS RETURNED VIA THE ZERO 
220 + FLAG. IF SET THEN THE TIMER HAS EXPIRED. 
221; 
OOD 2A000C 0D 222 BUMPT: LHLD TIMER 
0090 23 223 INX H 
0091 220G0C Dd 224 LO: SHLD TIMER 
0094 7C 225 MOV ArH 
0095 35 226 CRA L 
0096 C9 227 RET 
223 + | 
229 } THIS IS A ROUTINE TO WAIT FOR A NON FULL OUTPUT RQD. IF AFTER 65K 
230 ¢ TRIES, IT ISN’T NONFULL, IT ASSUMES THE OTHR DEVICE IS DEAD 
231 3 A CEAD DEVICE IS INDICATED 2Y THE ZERO FLAG BEING SET. IF THE 
222 7 ZERO FLAG IS NOT SET, THEN THE A REGISTER CONTAINS THE 
233 % RQGPTR STATUS BITS. 
2324 3 
0057 CO870G C 235 TRAGPT: CALL INITT ; INIT TIMER 
009A cpo000 C 236 L1: CALL RQGPTR 3 CHECK IF FULL 
00SD 4F 237 MOV oy. 
OOSE £620 238 ANI GFULL 
OOA0 79 239 MOV A,C ; RESTORE VALUE WITHOUT AFFECTING FLAGS” 
00A1 C8 260. « RZ | 3 IF ZERO THEN WAS NOT FULL : 
OOA2 cogpoc Cc 241 CALL BUMPT 
0045 C29A00 Cc 242 NZ L1 
ree 243 ; TIMER EXPIRED, RETURN NON ZERO 
244 
OOAS 3251 245 MVI A,GDISAB OR DISA3G OR GERROR 
OOAA 320500 E 246 STA OQUTREDtTS ry SET DEVICE TO DEAD 
OOAD 320500 = 247. ~~ STA INRQO+S 
0080 C9 248 RET | 
249 


250 
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LOC OBJ LINE SCURCE STATEMENT 
Q0CQO QO000 252 TIMER: OCW 0 

25.5 

254 gand ISIStraproce, 

255 END 


PUBLIC SYMBOLS | | 
BUMPT C QO8D INITT C 0087 RLEPTR C QQ3C RLTPTR C 0062 RQGPTR C 0000 RQTPTR C 0017 TRQGPT C 0097 


EXTERNAL SYM@CLS 

INRQC £€ OO0OC OUTRGD = OOCO 

USER SYMBOLS 

ACTIVP A Q082 BUMPT C Q08D CSEND A OC70 DEADP A 0089 DISA8G A 0040 OISA8T A 0040 EMPTYF A 0080 
FIRSTG A QQ08& FIRSTT A QO008 FULLF A OC&O0 GBUSY A Q004 GOISAB A 0010 GERROR A 0001 GFULL A 0020 
INACTP A 0087 INITT C QO08? INRQO ¢é& OCQO INSUFM A 0085 LQ C 0091 L1 C OOSA MYIDS A OQCOO 
OCUTROED E COQOC RL1 C. O02F RLIA C O0C2C RL2 C0037 RL3 c O07Cc RLGPTR C OO3C RLTPTR C QG62 
RQGPTR C OCOC RQTPTR C 0017 SENTOK A OC80 TBUSY A 0004 TDOISAB A 0010 TEMPTY A 0020 TERROR A OCO1 
THIDEV A QQ002 TIMER O 9000 TREGPT C 0097 UNKNP A 0081 


ASSEMBLY COMPLETE, NO ERRORS 


